UT IBitte Disketten - Seite 1 einlegenund neu booten !LFhChDCDC fLOlCHH`27ilde(1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`VAA1AAAAAAAAA1A1A12A13A1A1A1A1A18A19A2A2A2A2A2A2A26A27A2A2A3A3A3A33A34A3A3A}3A3A3A4A4A4A4A4A4A4A4A48A49A50A53A5A5} } @!@"#$%&'}()*+,-./012345aa6-?:C:Q }hi i  ` @@ҥ i;C iDXi{GYiHԌ/CG J`',, @>B:,"A+@ }46-&+*!,$> A0 !6-AV!AAHK6-@6-@'6-@36-@? }6-@K6-@# +@ A#AY2BB6-?:C: hhhhh֢ԑ`,<BsD<$AV,< }L;@U,L6.5hhhhhΠР & & &e΅ΥeЅϠ̑`F";@ ,6-C:,"6-C:,K-@ }"P6-?:<<$AV,Z dff>{hf}}j}h \`?K2C>>>0Ѝ>===Ѝ=GG67Ab,.4<<<Ѝ<;;ȭ<}ȭ=ȭ>Lb''6-?:C:hhh̠̙`, Knopf Dr]cken { A # A#UHR STARTENHAUPTPROGRAMM -!}68<,-  68,-(}6-6-DAVAWD(#  HAV"}AW>( ZUG NR.H A:AV+AW$@&@:(  #}6-8,"A06-88,<,$8AVAW.( 8 A&:AV+AW$$}@&@:( ) 6-.88,<,"A0/88,<,!A3688,<,-868,-8,&%}68,-8,%=688,<,-> A`B8,"AL 6-% A0A6-@:7A,,&A&}))6-%+@:7A,,&A,$@6-@:7A ,,&A))6-%+@:7A,,&A,$@6-$@'}`%6-S"* A* @5I6-+@&,$AP%+@4&,$AS AXS"* A* @p(}I6-+A&,$AP%+@i&,$AS AXO#"@* A* A3O6-+Ay&,$AP%+A2&,)}$A 6-%-A C +@ A%0@30@8(C(,F(%(*} IHR GEWINN -> DM*(F( .(( :.(& DM1( ($(+} :1( DM)( ()( EAY@4 AP) A07-A,}; E B%H-@((das hauptprogramm-(H(@ wird geladen. ) AA)% D:GLOBE.BA-}S L-@((diskette wenden -(B( L B%%B2y A%A A.}6-@ A@w. @*R:,@$6-%. A GG6-?:C:5hhhx /}  ݩԌ`,<,#"*"@A("*"@A-(A`2!!6-%+"@,0}&+"@,F A6- AP.-@6*2@@. ZT:,"Apd$JAV1}AW!"J(# 2 "2(#  2 "2(2}# $@6-?:C: h@`,,$JG6-?:C:5hhhx   3}ݩԌ`,<,J$;-@ 642A&$@@8 ;$:AdAU!AV3AW4}@5:(< (*> A!! ( > A!! A 45-@05T:,")F:Ad,AUA! 5}>@w $HMT:,"A!%RAdAU''$-6-@1%$@P&$-6-@T6}&$ -")"APp ,&%/%$% $ ,&%/%$%%   $p!!6-@P7}$&@!&+&,$z!!6-@P$&@!&+&,$6-@T&8,$6-@X&8,$ -")"8}Ac ,&%/%%+&,$% ,&%/%%+&,$%+6-@P$&@"!,%+/9}%%8   $ ,&%/%%+&,$% ,&%/%%+&,$% AaP~&&;@C,;:}@,;@,~8;A(,6. )67A(,. 867@,.~856.+hh h hhhh S՘;}`8$~< B&<?:C:,<@}WIRARSPLYXYYXXYBAZZJXYXYYN@ ?} @@@@} !"#$%&'(A})*+,-./012345678B}9:;<=>?@ABCDEFGC}HIJ6-@ bb6-?:C:Rhi i  ` @@ҥ i;C iDXi{GYiHԌ/CGD}. J`':.,, 6-@6-@ AA`+@F<;A,;@2,;@,;A,9E}@,F @T**6-C:hhhЈhЈh`ЅȱЅ`,L @06. $67A,.-67,.96-A6B6-C:F},L @9 6-@:,6-@:7,,96.7@<$@%@,! -!6-$@@&@68,-A:7<%@ G},,  B6-@0ZZ6.P/`,,>$GDEL PMF% 6-C:,6-6-BR}:,% @PSPIELSTAND SPEICHERNQ'-@'6-$@@&@R67<%@ ,.=:8,,S 6-C:,6S}-A6X6-AYFC6-?:C:-hhDhChHhGhhCGDH`,<<<,F$Z;-@642@PT}%$@ @8 ;$c!!dn$6-F:A,$AV$ Bxh19@,;@U},9@,9@,H6-F:A,&@2\A%@hAA6-A06-!6. A6-?:6.7[}$@&@,26-$@&@>@wrAA(+@) @T7A %F6-?:A6,T\}-@bB2V%f rA#B2w%#B2QA5A#6. غt+6-A5 @p]}n 6-F:,6-F:%,/6-$AV%A%%;@dI%@dWB2w%cB2Hn6-F:%,# 6-%%^}#6-$@%@!0g -&6-F:%,%6-F:%%,66-F:%@,G6-F:%@,X6-F:%@,gF:%@_},:) 6-6-%)6-+A(&,'@2D-F:,F:%,I  6-J!AY6-AYN ",/`}X ",/b%6-%P:@$H:,,&%%6-%g6-%P:@$H:,,&%l "&6-%o "%&6-%a}r "%%6-&v "%6-& 6-%@  6-F:,6-F:%,2-@.$AV%APb}%F:%,2 U6-F:%@,%6-F:%@,66-F:%@,G6-F:%@,U6-%@B2IB2Pc} 6-#ByB2R%@X+B2S%@V9-@="a$AV%Ah%$%@2%e yd}B2T%@TO-@ "1$AV%%%AK$AV%%%A6O R%%#B%P:@$H:,,$e}@\""6APf ,%%/%%p A`C-@@6&22@`@6f} @2C$2A @$h2/(&2$*6-H:,'@u*6-Pg}:@$H:,,% "6.Norden "6.Sueden "%6.Westen "%6.Osten$ARh}($( Spieler : ;;( N Wind: P:$B%,'A m/s aus 7,..6-M:O:&%@W,#%O:&'%@%,#i},77( W7<,O Abstand zum Green: P:, m.?)( S Welche Richtung ? ĺ 3 B`6(9(<(?(Pj}6-&@"@($Sie muessen den Sandschlaeger nehmenF6-P AQd(Holz - SchlaegerND(Metall - Schlaek}gerW7<,O^(Sand - SchlaegerSd6- Bp"%*6-AP "@*6-A l}"@6-@` "6-@`#6-&$@6-(--+T:,*F:AS,",)+!,AR2J6-%m}'@5("6-%@2@&@@J AQ`PS 26-G:,6-E:,%6-+6-16-76-=6-n}C6-I6-S A@# -6-%#6-%$@% !6-%6-&%B2H&  66-&6-%&Bo}2H1A !6-%%6-&1A &  66-&6-%&A 6-?:A6,!) 6p})!) 6AR "6-% "6-& "%6-% "%6-& 6-%,!!2%@0@q}@3$$F:B2`,*!@A`T 6-%B2x^[- @P) @)!A)!A?68%,-8r}%,%I2Q6-%[ A` | pM68%,-8%,% A`591&@G'&@C2M Bz"s}Ap "%6- A`@ AP' B26-' APH-@6?p:2At}&$@@> H2AB2H-@7$AV%A#%%; A6-76-$AV%A$u}%)%@d7%@d68%,-8%,% APXLA % 6-?:A6,*+@4 @T@B2Hv}L6-@UYNA--A%$@;B2I%? N6-?:A,Z1 -A%@-w}B2W%1 [ #B][6-$AV%AV'-@/"7%G%%AVW%%A[ bM0x}@@10@@@90M0@@ga,AF@p+/AF@R=,AEy}@SO/A4@Va/AF@YiO-@T@X-,A8@V9/AE= O,A7@Vl3z} %-@i@y#,//AY3 7-A9AA',@g3/@r7 ,!@"6-&{}@$H:,, ApWg&Ag@d+&AfA$?&AeA$S&AdA$g&Ac@d|}1-@@$!"',-/1 3-@#,AD@)"//3  6-A A}}t))6-P:A&$@%H:,$@,))6-A%$@0%P:H:,$@,@V( (9(<--------~}--------  ----------------->E@V( Spieler : VB2H6(Wie stark (von 1 bis ) wollenL(Sie} schlagen ? V B6-$A`'\ A@68%,-8%,% )!Aq!AAtI}%!A-(Der Schlag war zu stark;-A? I Aq -%B2H- AA 6-&#2}- AtC & '(Der Schlag war zu stark5-A9 C Aq-&6B2H# AA }6-%#2BB2H%,AC@7/AE@I,AB@[,AF@m,AB@},AF@LGA*A+,AB@ =,AF@ G AqQC-@@@P?}2$@&@@@C S 2VO,AB@',AF@+=,AB@ O,AF@ }`0-@A ,6-?:A6,0 -A 6-Aw @P((&( Spieler :(}(# AB&(#N --(Loch 8%, Schlaege1 D68,-8,%8%,N AB()()( Gesamt : 8, }Schlaege%6-AAR% Bt)  6-&6-%@) A- @6-@#6-%- }A66-A@- 6-%6-P:A%A $H:,,--A,8,)8,!@"68,-, ABF8, @}468,-++@&8,,$A%,%=8,!F6-8,D F -G 8, 68,-H68,-8,%8,I 6}-AJV 6- AAR"(00@D0@@L-V ABLF6-$@&@"6.}7,+( =@@F(---M?( Gewinn: DM 8,+@@"?( Konto: DM 8,N  ABQ''6}-?:C:hdc \@ `,,R @T-@@^Q'(Zum Starten des Hauptprogrammes*(Q(" bitte Di}skettenseite 1 einlegenhM(AR;(# und die <>-Taste druecken MAdAUr F:Ad,@}AP|) AA)% D:GLOBE.BAS> @P-@;(*** GOLFTURNIER - MIAMI ***>$'ii0,60,0,1,}254,56,28,255,252,60,255,126,63,62,254,127,254,254,127,255,254,255,255,251,255,255,255,127'TT255,254,127,255,255,63,255,25}5,31,247,127,31,239,254,15,239,188,8,135,24,3,0,0'ee142,146,140,148,139,149,138,150,138,150,137,151,137,151,137,151,137,15}1,137,151,138,150,138,150$'139,149,140,148,142,146)'UU144,0,159,17,152,0,159,10,144,40,118,17,123,7,135,0,124,27,134,37},154,37,159,24*XX1,5,9,2,4,13,3,4,15,4,2,17,5,2,16,6,1,17,7,1,14,8,0,14,9,0,12,10,1,9,11,4,8,-1,0,0+bb1,6,10,2,6,11,3,6},12,4,4,12,5,2,14,6,1,15,7,0,15,8,2,16,9,4,14,10,5,13,11,7,10,12,8,9,-1,0,0 +kk1,8,9,2,4,10,3,2,12,4,0,11,5,0,13,6,1,14,7,2},14,8,3,16,9,5,15,10,7,17,11,8,15,12,8,14,13,10,12,-1,0,0+kk1,6,10,2,4,11,3,5,13,4,2,15,5,1,14,6,0,13,7,0,15,8,2,16,9,3,18},10,1,19,11,3,18,12,6,15,13,8,12,-1,0,0 +dd1,10,14,2,8,17,3,6,17,4,5,19,5,3,18,6,2,19,7,0,17,8,1,16,9,3,16,10,4,15,11,7,12,}12,8,13,-1,0,0|.**2,14,30,62,62,62,30,14,2,2,2,2,2,2,2.hh8,16,12,24,12,24,28,120,28,120,60,60,126,126,126,126,124,124,62},252,62,252,248,127,126,254,126,254.,,255,255,255,255,24,24,24,24,24,24,24,0:gg6-?:C:UhhhHxԢJ2hH}(   кԌh`,<,;@w$>?6-F:AW,!6-F:AV,-6-}?AdAU>"A`6->  6-AY>1AWAX'AV1( >' BQ}($AdAU'$>"@B` >"@B`0>"@B`@>")"AB`>!} A6-&! B`> 6-% B`>")"AB`>! A6-%! B`> 6-& B}`>!!"@)"ApB`>+ @)!Ap!6-&+ B`> 6-% B`>!!"@)"Ap}B`>+!Ap) @!6-%+ B`> 6-& B`hB=AdAU%6-@+6-76-@}=6-jB+ 6-6- Bq!+ @kB33(T:,)F:AS,)R:,@BplB BQ(B}pnB(BppB7)6-%+"@* ,&+"@*!,7"BpqB# 6- Bq6-# BprBFOR T=J0} TO 50:NEXT TtB ()"6-@$vB "6-@$xB6-@$Bmj6-?:C:"hhhhhhh )Ո` }Ո`,-57:<3-679;3.47:;3.579<3.67:;3/479<3/57:;3/679<3047:;3057:<306b 6--l 8,"6-8,$@6v#8,"@}:7$%,,#6-%8,$#8,"@:7$%,,#6-%8,$#8,"@:7$%,,#6-%8,$#8,"@:7$%,,#6-%8},$/8,"@:7$%@,,/6-%8,$@#8,"@:7$%,,#6-%8,$  6-% A `F6-?}:<A`<,"A4AAFA @c (}""****************************O&( Sie haben } DM gewonnen !!)(O(Ihr Kapital ist jetzt  DM !! 6-?:,6- A0 K"@) /(Sie muessen} weiter!=-AA K ApAAR-@;(Noch ein Spiel J/N ?A6-  AA!"@}*"(!6-!"@*"(!6-A"A  Ap""*******************}*********Z3AA`+!0)03 A'd5@w A%A5% D:GLOBE.BASi-@}no/('Legen Sie bitte die Diskette mit demV("Hauptprogramm ein und druecken Sieo(dann den Feuerknopf!x A@} Ap!!***************************",6-H:,$@%@ 6 6-@ 6-&!A0JM2Ap}@@--@1 ;2I-AM T$^6-P:H:,$@7,h16-P:'%?,%6-6+&},$%+"16-r!@ Ap| -& 2Ap@@6-A%$@ 2}9AA'AA9AA8I "AA8-AA8?AAI }A,6-B0@,6-?:<<%<A,6-@c6- ApB2H A6-%@8}6-%P:+&,$@P, 6-?:<<%<,$#-@B2G%# &AY@F0}6-@:6-$AV%ADBByNA#XB2wb'B2VB2W'B2XlA}A0,0,0,63,63,63,63,0,0,0,0,7,7,7,7,0,0,0,0,255,255,255,255,0v#-%@5%@B "  }-%AX%Ae "  -%A%A "  <B2PA$'B2HA(}9B2IA<$$ W-B2HB2P! 3AAEAAWAA}$ *<B2HA('B2IA9B2PA$<$4p0-@0(}z* -*(|WETTE-NR.|EINSATZ|POSITION|0-@ 0(0-@0(| 1 |DM } | |0-@0(0-@0(| 2 |DM | |0-@0}(0-@0(| 3 |DM | |0-@0(}0-@0(| 4 |DM | |0-@0(0-@0(| } 5 |DM | |0-@0(0-@ 0(| 6 |DM | |1-}@!1( $    '6-& A@ 6- C@w'-@#&B:=:,,$%}/( ;-@3C( $ AA. -"@*!6-%#6-&- A#08 -"@*!6-&#6-%- }A#0B $%"*!'6-&$ A@L #"@ A0# A#@V )(A#@`  68,- A@j 6-}t /@w'-@)&B:=:,,$%/( ~ AA +"@* @`!6-%+ A$  %"@*!}6-&% A$  #"@ A0# A$0 A$0  68,- A@ AR *@@d}'B7t@d*$ SPIELSTAND LADEN A 6. 67A,.#67,.A6-?:<A6?@ABCDE 6-C: h@`,6}-?:, aa6-?:C:Qhi i  ` @@ҥ i;C iDXi{GYiHԌ/CG. J`25.,,::6-C:-hhDhChHh}GhhCGDH`,**6-C:hhhЈhЈh`ЅȱЅ`,o6-@6-@'6-@36-@ }?6-@K6-@W6-@c6-@o6-@L@!@@93AA`7+@6-?:!},LAYB (}AR(A@1:A@1B0)-@@)(BITTE WARTEN... "} ;A,;,;@u,A 6. 67A,.#67,.A6-?:<A6:,'6-%/6-%3 96-,}-@2(10(-@I@U6-@I@W*(>:,>:,26-%6  (>:%,06-}-(  Ap(  6-,@([]6! B B! BB (}-@@B.}("((( Ihr Startkapital = DM 33(+ /}N@([]X BY B(}] "6- Ab(} Ap  B0}4 6-6 6-6-> 6- A-@0 -@  -A -@`1} $ (}--(% Fuer diejenigen unter Ihnen,die den--(% besten Weg suchen um Millionaer zu--(% werde2}n, gibt es eine Tabelle mit--(% Gewinnquoten. Diese koennen Sie nur++(# mit dem Joystickknopf verlassen!!$(3} Viel Glueck !!.( WAEHLEN SIE AUS :8++(# [] -----BINGO AUS 80 ZAHLENV&&( [] -----GEWINNQ4}UOTEN`&&( [] -----SPIEL BEENDENi6-@6- APj 6-R:, "@A`o Bt;;5}6-+"@,$$+ @,&+"@,$$+!@,~% -( 6-%-%(*-@  T:,"6}A0 B%"@6-@% A"@ A1"@(}'-@@1 7}AG0~!@(}'-@@D(Sie muessen weiter ...X-A\ b(}t-@@~ 8}AG0/ (}-@@/(BITTE WARTEN...x6.6.| |6.$$6.9}$$6.| | | | | |$$6.$$6.6:}8,-P:$H:,,%-@ 68,-P:$H:,,%-+&,8,"8,AP"   , 6- A;} (}0 (͠#@$0(͠5( 1 ZAHLT 3:1"@!5( 3 ZAHLT 1:1!@"<}!( 4 ZAHLT 4:16 (͠#@"6(5 ZAHLT 88:19( 2 ZAHLT 12:1#@"9(6 ZAHLT =} 1.500:11 ( ͠$@$1(͠4( 2 ZAHLT 1:1"@"4( 4 ZAHLT 2:16( 3 ZAHLT>} 42:1#@"6(5 ZAHLT 24:1#@"#(6 ZAHLT 360:19 (͠#@"9(7 ZAHLT 5.?}000:1( 2 ZAHLT 1:1/( 3 ZAHLT 4:1"@$/(͠6( 4 ZAHLT 112:1$@"6( 5 ZAHLT 9@}:1"@""(6 ZAHLT 90:1 6( ͠ @"6(7 ZAHLT 1.500:1:( 3 ZAHLT 2:1"@"A}:(8 ZAHLT 19.000:1( 4 ZAHLT 20:15( 5 ZAHLT 480:1 %@"5( []! B" BB}&02(} ͠#@$2( ͠25( 5 ZAHLT 4:1#@"5( 5 ZAHLT 1:146( 6 ZAHLT C} 44:1$@"6( 6 ZAHLT 8:168( 7 ZHALT 300:1%@"8(7 ZAHLT 72:18;( 8 ZAHLT 4.000:1'D}@";(8 ZAHLT 360:1:>( 9 ZAHLT 20.000:1(@">(9 ZAHLT 1.800:1<(@!((10 ZAHLT 12.00E}0:1=)@!)(11 ZAHLT 25.000:1>0( ͠!@$0( ͠D5( 5 ZAHLT 2:1#@"F}5( 6 ZAHLT 5:1F7( 6 ZAHLT 20:1$@"7(7 ZAHLT 32:1H9( 7 ZAHLT 132:1%@"9(8 ZAHLTG} 240:1J9( 8 ZAHLT 960:1%@"9(9 ZAHLT 600:1L=( 9 ZAHLT 3.800:1'@!=(10 ZAHLT 1600:H}1NA(10 ZAHLT 25.000:1(@!A(11 ZAHLT 12.000:1P(@!((12 ZAHLT 25.000:1X ( I} []b Bc Bj2(}͠$@$2( ͠l5( 6 ZAHLT 1:1#@"J}5( 6 ZAHLT 1:1n7( 7 ZAHLT 16:1$@"7(7 ZAHLT 10:1p7( 8 ZAHLT 80:1$@"7(8 ZAHLT 40K}:1r9( 9 ZAHLT 720:1%@"9(9 ZAHLT 320:1t>(10 ZAHLT 4.000:1'@!>(10 ZAHLT 1.000:1v>L}(11 ZAHLT 8.000:1'@!>(11 ZAHLT 3.200:1xA(12 ZAHLT 20.000:1(@!A(12 ZAHLT 16.000:1zM}A(13 ZAHLT 25.000:1(@!A(13 ZAHLT 24.000:1|)@!)(14 ZAHLT 25.000:1~@( N}͠!@!( 7 ZAHLT 8:1"@"(8 ZAHLT 28:1#@#(9 ZAHLT 132:1$@O}$(10 ZAHLT 300:1&@&(11 ZAHLT 2.600:1&@&(12 ZAHLT 8.000:1'@'(13 ZAHLTP} 24.000:1'@'(14 ZAHLT 25.000:1'@'(15 ZAHLT 25.000:1-@([] BQ} B( } Ap AG+ (}-@@+( EINSATZ : ?G-@@"R}7(EINSATZ = 0 ZUM MENUE=6-G A 6-R:, "@AI B=6-%+"@*+%, ,$&+S}"@,$$+!,C I6--@$@( T:,"A B"AC (} BT}!AF"A)55(-}WIEVIELE ZAHLEN MOECHTEN SIE ERRATEN?>(.(WIEVIEU}LE ZAHLEN - 46-> A ( 6-R:, "@A 07 B76-%+",$+ @,&+"@,$+!,-@V}(@( T:,"A % B( (}-@%(( -   B4 6-6->W} -C -(F " (( A!PH6 -6(( GEBEN SIE EINE ZAHL ZWISCHEN M( 1 UNX}D  ANR'(  ? (' A!3S 6-R:, "@A!4T1 B16-%+",$+ ,&+"@,Y}$+!,U-@ ( VT:,"A!1W B68,-Z( -&8,"8,(68,-@\ f (Z} AAp 6- 0B06-?:<B<B<A, -( - (([}  ((26-%@)( Š26.=:,4-B:,$(>:@:7,,%A(,( 4(\}))(! ANZAHL DER TREFFER - 0 6-@ 6-6- -@  6-%$++!,%+!@,,$ ]} -%+8, @, (8,) 1 6-6-%!@))6-@ 16-% F -8,"8,6-%%6-7-@1^}@<(F B -@     -AP  A0T B( }"@8(_}IHRE ZAHLEN - B A! 6-A9A0PA1A1PA2A2PA3A3PA4A4PA5`}A5PA6A6PA7A7P  A8 6-$@   A8& 6-$@ N  a}A8X  "6- b 6-$@B   A8  "6-   "6-$  6-$Ab}   A8  "6-$   "6-$@   6-$A   A8  "6- c}  "6-$   "6-$@  6-$A   A8  "6-$ *  "6-@$d}$ 4  "6-A`$ > 6-$AP H  A8R  "6-@ $ \  "6-@$e} f  "6-A$ p 6-$B z  A8  "6-$   "6-@D$   "f}6-A$   "6-A@$  6-$B   A8  "6-$   "6-@ $g}   "6-A2$   "6-A `$  !"@ 6-A8$!  6-$BP   Aq}SB9HANOI Bh=GOLF B5ROULETTE B>ROU PICBBINGO B%BOERSE B9PFERDE B^AUTOMAT B^AUTOMAT DAT,}EDIT LISMACLISP LIS CLISP LISUTILS LIS8  "6-   "6-$   "6-@r$   "6-A`$ !"@ 6-Ar}$! !"@6-B $!  6-$BP  A8 "6-$  "6-@2$ s}$ "6-A@$ )!"@ 6-A$! .!"@6-A$! 3!"@6-B $!t} 86-$BP B A8L "6- Q "6-@$ V "6-@$ [!"@ u}6-A $! `!"@6-A@$! e!"@6-A$! j!"@6-B$! ov}6-$BP t A8y "6- ~ "6-@$  "6-@@$ !"@ 6w}-A $! !"@6-A$! !"@6-A2$! !"@6-B`$! !"@x}6-B@$! 6-$BP  A8 "6-$  "6-@($ !"@ 6y}-A2$! !"@6-A$! !"@6-A&$! !"@6-A$! !"@z}6-B@$! !"@6-BP$! 6-$BP  6-&6-% (}-@@{} A8`--(%SCHADE, ES SIEHT SO AUS, ALS HAETTEN <2(* SIE NICHT GENUG TREFFER,UM ZU GEWINNEN< A8|}//(' SIE HATTEN NICHT EINMAL EINE ZAHL DES ( COMPUTERS ERRATEN.(++(# MEHR GLUECK BEIM NAECHSTEN MAL!2}}-A  AC<'A@1'A@1A!BP6-BPF 6-%6-%P( }~}Z!A$A9`_!@P$A9Pd..(&SEHR GUT !! SIE HABEN EINEN GROSSEN i/%(JACKPOT G}EWONNEN -  DM/ A9n++(#ES SCHEINT, SIE WERDEN EIN REICHERp++(MANN.SIE HABEN  DM GEWONNEN!s:0((}GEBEN SIE NICHT ALLES AUF EINMAL AUS!: A9x9-@-%A1A5 9 NAAb}'AAbN(" G L U E C K W U E N S C H EE"( SIE HABEN GEWONNEN !!!E( WIE HOEREN SICH DM AN}? B AC !(!@(  ("  (,  (6 6-%@) ("}&%+8, @,)(8,J!")"@!6-&@0T$ AG//(}ҠĠ } -- DM/ /(SIE HABEN VERLOREN --  MAL0 0(SIE HATTEN GLUECK --  MAL&!ADP}+"AD011( IHR VERSPIELTES KAPITAL -- & DM: ( AEb**(" SIE HABEN EINEN BETRAG ERSPIEL}T,l9/( IN EINER HOEHE VON -- & DM9 AE--(% SIE LIGEN NOCH GUT -- SIE SOLLTEN00(( AUFHOEREN, }BEVOR SIE ALLES VERLIEREN( WAEHLEN SIE AUS ://(' [] ---- GLEICHE ZAHLEN NOCHMAL$$( [] ---}- GEWINNQUOTEN%%( [] ---- SPIEL BEENDEN( [] ---- WEITER6-@6- AEp 6-R:,} "@AE B;;6-+"@,$$+ @ ,&+"@,$$+!@,# -( 6-%-#(}*-@  T:,"AEP B'"@*6-(}' A "@( AEP}"@6- A"@AG (}6- A//(}HALT ! WIE WOLLEN SIE D}M**(BIETEN,WENN SIE NUR NOCH DM 11()HABEN? SO SIND SIE NICHT GLAUBWUERDIG.00((WELCHE SUMME MOECHTEN S}IE JETZT BIETEN (@(DM ?6-( AFC! 6-R:, "@AFD"5 B56-%+",$&+"@},$@$+!,#-@"@( $T:,"AFA% B"AFA& A\a22(*}}NUN, DIES IST NUN DAS AUS FUER SIE,f00((ABER AERGERN SIE SICH NICHT, VERLUSTEp(WAREN UNVERMEIDLICHz#}@#(Ӡ6-O:&, !6. VERLOREN  6. GEWONNENB "<6., NICHTS } DAZUGEWONNENB6-3( 1. STARTKAPITAL (@23( DM2( 2. ENDKAPITAL '@22(} DM0( 3. SIE HABEN%@20( DM2( 4. GESPIELTE RUNDEN*@22(( } [] B B A (}AR(41(( }4$X6.`{``{{{b-B:,c4@:7<,,"-6&2024 dR@:7<,,"@"-}682A@N2A@R fR@:7<,,"A#"-682@r@N2@s@}R hR@:7<,,"@ "-682AP@N2AQ@R j k 22$}$ $ B(# 6- @@*#X@+AR1A@1CA@1OA X}6-?:,2#-@ 4#P'(Zum Starten des Hauptprogrammes*(P(! bitte Diskettenseite 1 einlegen!6#?(-(! Ҡ o}der Š druecken ?AdAU8#F:AS,%T:,"A:#) AA)% D:GLOBE.BAS' #B0}' "' "6 B%'#2@#2@'. --6&2@* . $' B})' -2 $.'ee68,81,102,81,102,136,108,136,162,102,136,162,81,102,136,68,81,102,57,81,114,57,76,102,60,81},1213'gg60,76,102,68,81,102,81,102,136,108,136,162,102,136,162,81,102,136,68,81,102,91,121,153,91,128,1538'ff91,121,153,6}8,81,102,81,102,136,108,136,162,102,136,162,81,102,136,68,81,102,53,81,108,53,76,102='ff50,81,102,50,60,85,50,102,162,68,10}2,162,81,102,162,53,108,153,76,108,153,91,108,153,102,121,162B'ii102,136,162,91,121,153,91,136,153,50,102,204,68,102,204,81},102,204,53,108,153,76,108,153,91,108,153G'&&102,136,162,102,136,162,-1,-1,-1 N42@0@@'6-'12}4$NT:,"BN$NT:,"BN$LO;6-@` B%6-@/ B;6-@`VO+-}@6$2@( +$D:BINGODJOASPNRAD1D2D3D4G1G2G3G4G5G6G7WLATMMMNMY3MNnxDUMMZZZZZAKAAPANZBALSDNADADDJOZALSLABJYCH}@@ } !"#}2aa6-?:C:Qhi i  ` @@ҥ i;C iDXi{GYiHԌ/CG. J`25.,,<?6-@6-@}'6-@36-@?6-@dG@!@@83AA(= A0G AEnKK;@%},;,9,9,;@,;A,;@,;@,zB 6. 67A,.#67,./6-A686-C:,B A}|, A06-@:7,,,6.7$@&,~6-$@@&6-A:7,,6-&+!,$&" B-68,-}" ##6.DELTAOIL BANK STAHLALPHA6. A AE006-?:<<<@<AF<}@<@R,00('}//(& Boerse Zuerich //(&}//('DIE AKTIENKURSE: DM STUECK -!(%] 6.7$%,!(}$@@$(7<8%,,B@@)'(8%,$@9@@4B(8%, (  Ap}"<( Aktien kaufen)( Verkaufen<( Weiterreisen,AY@4 AA@-"@ 6-#6-%@}- AJ"@!6- AT"@"A ^&h-@#($r+-@(( KONT}OSTAND:  DM+$|$K)!$$ - $ -68%,-P:@$H:,%,   $},+6-?:C: h@`,,)AY,$;-@642@P%$@ @8 ;$SPIELSTAND SPEICH}ERN% 6.=:,%67B:,%,. 6-@:7,,6-$@@&!!67<%@ ,.7<@, 6-C:,6-A6}6-AFC6-?:C:-hhDhChHhGhhCGDH`,<<<,F$##} A` App--@!#(Welche Aktien ?- ABr% A%"* AA0s- "68,-8,%}#6-68,$- At!8,Au68,-8,&6-8,$v Az A` Ap{3-@!)(}ANZAHL DER AKTIEN = 3 ACL;6-%$@6-% @1AY; A@V7 A`-@!7(SIE} MUESSEN WEITERREISEN!W6-A AE A`-@!;(Die Aktien werden verkauft !E A- -}6-8,-6-%8,$@$ 6-A A Ap6-A A A @ }A`-@!@(!Ihr Spielkapital ist zu gering ! 6-A A6- 8,A    6-%} A0 #6-A A# A!@w!AdAUjg6-?:C:UhhhHxԢJ2hH}(   кԌh`,<,j$=6-@ 6-!AR3AdAU= AA% 6}- A A@"(%$556-%+"@* @",&+"@*!@ , "AA = - ( } &-=(><  AP 6- AAh=6-@6-'AdAU3AR}= ABj96-@ A# A@((66-&@H9$l996-%+"@* @,$&+"@*!@,$}n"ABp%6-@H%+&,'-%(>:,r-6-@H%+&,'--(>:%A(,t  APv 6}- ABK6-F:@,!6-F:@,'6--6-9ARKAdAU -(   AP}6-+6-@ A# A@((+$//6-%+"@* @ ,&+"@*!, AC*'6-?:C:h}dc \@ `,,*$LL6-?:C: AE>6-?:<<AH<<<@<@R<@#<,#@-@#''(Wenden Sie} bitte die Diskette !#3-@@!3([] oder # A@A# AD:BOERS}Eitte die Diskette !#3-@@!3([] oder # A@A# AD:BOERSDUMMPFAPFPF1BALSDNDADADDJOZSGGALWAIJSSPSSESZZGYCHDLKMKJ}@ }} !"#$%&'()*+,-./}0! +@ A ! A aa6-?:C:Qhi i  ` @@ҥ i;C iDXi{GYiHԌ/CG}. J`25.,, ]];@E,;@ ,9@,;@T,;@,;A,;@,;@, **6-C:hh}hЈhЈh`ЅȱЅ`, H 6. 67A,.)67@,.56-A6>6-C:,H @8 @6-@:7@},,86.7$@&@,%6-$@@&@%6-A:7,,%%6-&+!@,$@&@6.*************}*****C AAR@1@@C@@956-%@6-)6-56-}) 6. 67@E,.)67@,.F AF6-?:<@<@6<@<AD<@<AB,#-@}@"%%6-P:@$H:,%@,56.7$@ &@,567$@ &@,. ::Stu}rmwindAnwaerterSham Blitz Flicka Victory99Sahib Rocker Blacky Blizzard Bonny Master 77Arabeske Nigh}tstarSancho Ursus Samba Arco!77Boy Asti Sunset Red Star Sunshine Cara"99Tarquin Fee NordlichtS}abrina Kobold Konsul(@-@@<68,-P:@$H:,%@,@ * A0+..(&Die Vorquoten: } DM,-@@(-/(#) *6.7$@ &@,/(.(@@((7@}<8,,/$@@6$(8,$@0 1/AY@4/0@@@2 AKontostand}4 AJoystick S/P/W< (PSPIELSTAND SPEICHERNQ+ 6.=:,+67B:,%@,. R+6-@:7@},,+6-$@@&@S''67<%@ ,.7@<@,T$ 6-C:,6-A6$6-AX6-AYFC6-?}:C:-hhDhChHhGhhCGDH`,<<<,F$c&i-@ $jM -@6@F}2@P%$@ @J M$kAA(l +m.6-?:C: h@`,,+AY.$}1-@@.( Kontostand:  DM1$ B"@ A"@!A "@"A0}&! A A! A)-@@"&( )$ 3-@@!3([] oder} " AA$$>//('}@..(& Trabrennbahn Fremantl}e B1.(&1$ A0 B))(  Sieger: # Gewinnquote: }""( 2. >:@4, : #(  Platz : ,,( Einsatz:  DM Gewinn:  DM6-A A}"@A0 A RETURN / TRIGGER @" @"@" A; A1(Siegw}ette auf welchem Pferd ?; B!! @)!@A PD A,(Wetteinsatz 10 - 100 ?6 B D6}-'@ AA0$G A7($Platzwette auf Welchem Pferd 1-5 ?A BG6-!!"})!@A `$Q A P/6-P:@$H:@,%@,Q6-P:A$H:@,%@,$, 6- A}$6-8,$@,6-$8 "6-6-%96-&+$@, A @: A B%%6-P:@$H:@,%@},C"AF$~%%6-P:@$H:@,%@, A) AP A `! A S)6-&+%6-}P:@$H:@,%@,+6-+%6-P:@$H:@,%@,+6-"A ")"A  A }@ A %6-8,$@%6-P:'@, @6-@ 6-$6-% A %6-8,$@}%6-P:'@, @6-@$ 6 A6("Ihr Spielkapital ist zu gering!  6-A }A ) A)(Sie muessen weiter!!! 6-A A 5 A5Guthaben merken/Hauptprogramm starten}@'@w'AdAUJjg6-?:C:UhhhHxԢJ2hH(   к}Ԍh`,<,j$*'6-?:C:hdc \@ `,,*$LL6-?:C:<8}'  AB' 6- A($L'556-%+"@* @",&+"@*!@ ,V'"B@`' B0}*96-@6-'AdAU9AR@*6-@P A+7#6-@H%+&@,'@/-@}7(>:, +?#6-@H%+&@,'@/-@?(>:%A(,+  A +) 6- A(&6-}&@H)$*+EE6-%+"@* @,$@&+"@*!@,$@4+"B@>+ B.%6-@}6-@P% A.-@%@!( . 6- A($.qq6-%+"@* @,$@&+"@}*!@,$@%+"@* A,&+"@*!@,/  A/ B 0u B :uO-@}@32@@P@G-@@K O ?u6-@DuV-@@H2@@P@}P:+A`&,'@%,R BpV NuO-@@32@@P@G-@@K O Xu}-@@0 buz -@@6@<2@@P@P-@@T X z2@}lu$vuu\ -@6@<2AP@X2@AR@\ }u&6-&?"-@P:,& u$u-@@ u$uq%2@@@O2@}@%@@@q2@@@@@u-@@0 u7-@32}7 u-@@ u$ D:PFERDE.3BB }|R..ZBREAINTAUJJJNERGASM1SDBUFFERCOLJMODDJOASGELMAJEINDECDSPMEDSPLSANBONUSZZ}ZZSXXXBOMOXGERIOC@ } } !"#$%&'()*}+,-./012345676-@}6-C: h@`,6-?:,-$6-C:hdc \@ `,-6-?:, bb6-?:C:Rhi i  ` @@ҥ i;}C iDXi{GYiHԌ/CG. J`':.,, '6-@6-@'6-@ LL;@,9,;@,;A},;A0,;A7,;@, 67A7,.' 68,-68,-68,-'68,-::6-C:-hhDhChHhGh}hCGDH`,**6-C:hhhЈhЈh`ЅȱЅ`,# 6. 67A,.#67,.!!6-?:<A6 }}0@@ P-@@f(@ 0(@0(@ +(@+(}@ dm+(@+(@ IHR BARGELD: (@(@..(&}Jeder Einsatz wird mal 1}0 gerechnet !-AP (@ : !6-F:@,!6-F:@,,6-@ A},6-P:'@,6-@ 6-S@w-((@ 9-@6O2@@S} -@P T:,"A 6-R:,%"@* 6-%% A`%"@*!6-&% A}` AbĠΠ 6-6-Add6-C:WhhhhihͅϠ̱ѪȱȱхȱхȘeхѥi}ҠEĥEо`,6-?::@4,Ơ B@w!} "6-& AP( 6-&F*6-Ar 6-P:'A,* B@K;'6-P:H:,$@,$@E%A;"}"ApAUP:6-Ar6-&A$06-P:'@,: B@Z)6-Ar6-&@$) B@d*6-A#}r 6-P:'B,* B@n:6-As6-&$B06-P:'B,: B@s;'6-P:H:,$@,$@E%A$};"ApAx:6-As6-&$B06-P:'A,: B@:6-As6-&$A06-P:'A%},: B@:6-As6-&$A06-P:'@,: B@/6-As6-&$@%6-/ B@''&}6-P:H:,$@,$@E%A")"Ap)"A52@U@@6-@ A`1'} 6-AAe'6-@1 A`^A@Sh"Ar 6-6-@ Af|7 6-(}6-!AAe-6-@7 Af#A@S#"A 6-6-@ A`L@)}(A%P:'AV,C&AV$P:'AV,L6-?:, Ae 6-6-@ Af1 6-A*}Ae'6-@1 AfLA(A%P:'AV,C&AV$P:'AV,L6-?:, Ap1 6+}-A@S'6-@1 Ap 1 6-AAe'6-@1 Ap LA(A%P:'A,}V,C&AV$P:'AV,L6-?:, 2 AtA@S?68,-@&8,+68,-@-}&8,?68,-@&8, 6-6- BP A"A-A"@%' A.}[+T:,&,$H:, 6?0'%6-+6-A2@@G6-Q A[ A& T:," B`6-/}& A -&&& l+ 2A+A@Sq-@ v-A0}T:,"A6 A@S% 6-%6-%%"* A6 A(6.6-B2H1}( @4'-@  ,6-+&%,$@46-%$86-A6  A78 GRAPHICS 17:D=USR(BREAK).[2}-@.(@NEUER EINSATZ ==>9(@[(@ FEUERKNOPF DRUECKEN0S-@+(@fuer spiel3}ende6(@S(@ bitte warten !3-A 8-ABO T:,"'-@ ! 56-+&%4},$@=6-%E6-%O AL t @0ŠӠӠSPIELSTAND SPEICHERN 5}6-. 6-?:,6.=:,.67B:,%,. 6-@:7,,6-$@@&!!67<%@ ,.7<@,!!6-?:6}}-6-?:,$ " Ay.* @!A*6-?:,8-A6-?:,$A-6-?:,B "?} AyL 6-% A`d<F:,"A268,-+F:,&A,'@E%< Aen))68,-+F:,&@$,'@E@}%@o$ 6-AA-A6-?:,$A-6-?:, " Ay A}AE-A6-?:,$A-6-?:, " Ay A-A6-?:,$B}A-6-?:, " Ay" A5,-A6-?:,$A-6-?:,6 " Ay@C}@$AJ-A6-?:,$A-6-?:,T " Ay^ @ih-AD}6-?:,$A-6-?:,r " Ay| A-A6-?:,$A-6-?:, "E} Ay 6-% AfX<F:,"A268,-+F:,&A,'@E%< Apa))68,-+F:,&@$,'@EF}%@b$g 6-l0AA'A06-?:,v " Ay 0AAE'AG}06-?:, " Ay 0AA'A06-?:, " Ay 0AA5H}'A06-?:, " Ay 0A@$'A06-?:, " Ay 0AI}@i'A06-?:, " Ay 0AA'A06-?:, " Ay  6J}-% Ap <F:,"A268,-+F:,&A,'@E%< At ))68,-+F:,&@$,'@E%@$K} T:,"'6- Ae$ T:,"'6- Ap$ T:,"' At$?ŠL}ΠάΛ@"AB! 6.6-&&! @C 6-"*"$DM2@G@@--@M}1 M2@d@@E-@ F 2I"A J8.6-@g%P:@P$+@%,'N}@,8 A0T "6-@I A0U "6-@S A0V "6-@X A0W%"@O}6-@b% A0X%"@6-@g% A0Y6-@q^AAec! 6.6-&&! @P}$6Π6 "6-@6-@6**%%@@$F:BS%$@%,6 6"@Q}6-6$:++Ǩ̭̬άΛ: 6-6-:AUSWERTUNSSUBROUTINE:,8,"8,*8,"8,"R}6-8,, BR:""8,"*8,*8,BQ:8,BP:#8,")8,"6-# BRp:"8,"8,6S}-8," BR:"8, 8,6-8," BRp: 6-8, BRp:8,BQ@:#8,")8,"6-# BRpT};"8,"8,6-8," BR;"8, 8,6-8," BRp; 6-8, BRp$;"8,"8,6-8," BRpU}.;"8,"8,6-8," BRp8;"8,"8,6-8," BRpB;$L; 6-%V;8,8@,$`; 6-8, V}BRpj;6-@ t; "6-@%$~; "6-@ $;"")"@6-@"$;("@)"@W}%6-@($;6-@$; 6-; "6-@$; "6-@$; "6-@$;"X}@6-$;""@)"@6-"$; 6- $>"B`@>"@%$>6-%@>$>*Y}"@6-@ '6-@*$>"@6-@$>"@6-@$> "6-@$>Z} "6-$> 6- $Hq$/u Ġ0u(AA`+@$(6-?:,Du6-?:<A`,Nu6-?:<@,[}XuE:6-?:C:*h01cfNc`,,EDLIGR.7+bu(AA +@(6-?:,lu/-@@\}/(@ bitte wartenvu BPu''@ D:AUTOMAT.DATu6-A2%@u%@u]}6-?:<%@ "))) (QUOTE EX)) (RETUR&}N (QUOTE EXIT)))) (POKE 128 63) (COND ((EQ X (QUOTE T)) (GO T)) ((MEMBER X COMMANDS) (APPLY* X)) ((PRIN2 (LIST (QUOTE ILL) (Q&}UOTE COMMAND-->) X)) (TERPRI))) (GO LOOP))))(DEFINEQ E '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((EVAL X)) (T (PO&}KE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (SET X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ E&}F '(LAMBDA NIL ((LAMBDA (X) (PROGN (SETQ S-EXP (COND ((GETD X)) (T (POKE 128 0) (PRIN1 (QUOTE -->)) (PRINT X) (DEFINE&} X (GETLST (GETCMD (QUOTE "> "))))))) (GO T))) (READ))))(DEFINEQ H '(LAMBDA NIL (PRIN1 (LIST (QUOTE COMMANDS:) COMMAND&}S))))(DEFINEQ L '(LAMBDA NIL ((LAMBDA (FILE) (PROGN (LOAD FILE) (PRIN1 (QUOTE "--> ")) (PRINT (EVAL FILE)))) (GETCMD &}(QUOTE "> ")))))(DEFINEQ S '(LAMBDA NIL (PROGN (SAVE (EVAL (GETCMD (QUOTE "> "))) (GETCMD (QUOTE "> "))) &}(PRINT (QUOTE )))))(DEFINEQ C '(LAMBDA NIL (DIR (READ))))(SETQ X 'S)(DEFINEQ X '(LAMBDA NIL (PROGN (PASTE CURR (RE&}AD) (READ)) (PSET CURR))))(DEFINEQ PASTE '(LAMBDA (X Y Z) (COND ((EQUAL X)) ((ATOM X)) ((EQUAL (CAR X) Y) (RPLACA X Z) (PAS&}TE (CDR X) Y Z)) (T (PASTE (CAR X) Y Z) (PASTE (CDR X) Y Z)))))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((AT&}OM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) (CDR Y)))))))(DEFINEQ GETCMD '(LAMBDA (X) (PROGN (POKE 128 0) &}(TERPRI) (PRIN1 X) (READ))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X)&} FN))))))(SETQ COMMANDS '(A D B P R DEL I G LI RE PP PRE C E EF X S L H PU LOCK UNLOCK))(DEFINEQ PSET '(LAMBDA (L) (PRINT&} (CAR (SETQ CURR L)))))(DEFINEQ SETP '(LAMBDA (FUNCTION) (COND ((ATOM (APPLY* FUNCTION CURR)) (PRINT (QUOTE ))) &}(T (SETQ PREV (CONS CURR PREV)) (PSET (APPLY* FUNCTION CURR))))))(DEFINEQ R '(LAMBDA NIL (PRINT (CAR (RPLACA CURR (READ))))&}))(SETQ A '(A))(DEFINEQ A '(LAMBDA NIL (SETP (QUOTE CDR))))(DEFINEQ D '(LAMBDA NIL (SETP (QUOTE CAR))))(DEFINEQ B '(L&}AMBDA NIL (COND ((EQ (CDR PREV)) (PRINT (QUOTE )) (PSET CURR)) (T (PSET (CAR PREV)) (SETQ PREV (CDR PREV))))))(D&}EFINEQ LI '(LAMBDA NIL (PSET (RPLACA CURR (LIST (CAR CURR))))))(DEFINEQ RE '(LAMBDA NIL (COND ((ATOM (CAR CURR)) (PRIN1 (QU&}OTE )) (TERPRI)) (T (PROG NIL (NCONC (CAR CURR) (CDR CURR)) (PSET (CONZ CURR (CAR (CAR CURR)) (CDR (CAR CURR)))))))&}))(DEFINEQ CONZ '(LAMBDA (X Y Z) (RPLACA (RPLACD X Z) Y)))(DEFINEQ PRE '(LAMBDA NIL (PSET (RPLACA CURR (CONS (READ) (LIST&} (CAR CURR)))))))(DEFINEQ I '(LAMBDA NIL (PROG NIL (RPLACD CURR (CONS (READ) (CDR CURR))) (A))))(DEFINEQ DEL '(LAMBDA NIL&} (PROG NIL ((LAMBDA (X) (COND ((EQ CURR X) (CONZ CURR (CAR (CDR CURR)) (CDR (CDR CURR)))) ((EQ CURR (CDR X)) (RPLACD X (CDR C&}URR))) (T (RPLACA X (CDR CURR))))) (CAR PREV)) (B))))(DEFINEQ G '(LAMBDA NIL (PROG (X Y) (SETQ Y CURR) L (SETQ X (GETCMD (Q&}UOTE "> "))) (COND ((EQ X (QUOTE A)) (COND ((EQ (CDR Y)) (PRINT (QUOTE ))) (T (PRINT (CAR (SETQ Y (CDR Y)))))&})) ((EQ X (QUOTE G)) (RETURN (COND ((EQ CURR Y) (LI)) (T (CONZ CURR (CONS (CAR CURR) (CDR CURR)) (CDR Y)) (RPLACD Y NIL) (PRI&}NT (CAR CURR)))))) (T (RETURN (PRINT (QUOTE ))))) (GO L))))(DEFINEQ PP '(LAMBDA NIL (PPRINT S-EXP 2)))(DEFINEQ P '&}(LAMBDA NIL (PPRINT (CAR CURR) 2)))(DEFINEQ PPRINT '(LAMBDA (X IND) (PROG (TFLG) (PPAUX X IND) (TERPRI))))(DEFINEQ PPAUX &}'(LAMBDA (X INDTN) (COND ((ATOM X) (PRIN2 X) (SETQ TFLG)) ((ATOM (CAR X)) ((LAMBDA (Y) (COND (Y (MULTARGS X INDTN (CDR Y))) (&}(PROGN (PRIN1 LPAR) (PRIN2 (CAR X)) (PPARGS (CDR X) INDTN) (PRIN1 RPAR) (SETQ TFLG))))) (ASSOC (CAR X) FORMATS))) (((LAMBDA (&}IND1) (PROGN (PRIN1 LPAR) (SETQ TFLG T) (PPAUX (CAR X) IND1) (TABRET INDTN) (PPARGS (CDR X) IND1) (PRIN1 RPAR) (SETQ TFLG))) &}(+ INDTN))))))(DEFINEQ MULTARGS '(LAMBDA (X INDTN L) ((LAMBDA (INDTN2) (PROGN (TABRET INDTN) (PRIN1 LPAR) (PRIN2 (CAR X)) (&}PRIN1 BLANK) (PPAUX (CAR (CDR X)) INDTN2) (COND ((CDR (CDR X)) (MAPCAR (CDR (CDR X)) (QUOTE (LAMBDA (Y) (PROG NIL (TABRET IND&}TN2) (PPAUX Y INDTN2))))))) (PRIN1 RPAR) (SETQ TFLG))) (+ INDTN (CAR L)))))(DEFINEQ PPARGS '(LAMBDA (X INDTN) (PROG NIL LOO&}P (COND ((EQ X) (RETURN))) (PRIN1 BLANK) (PPAUX (CAR X) INDTN) (SETQ X (CDR X)) (GO LOOP))))(DEFINEQ TABRET '(LAMBDA (N) (P&}ROG NIL (COND (TFLG (RETURN)) ((TERPRI))) (SETQ TFLG T) (COND ((> N LINE-WIDTH) (TERPRI) (TAB (SUB N LINE-WIDTH))) ((TAB N)))&})))(SETQ FORMATS '((COND 6) (LAMBDA 2) (PROG 6) (PROGN 7) (AND 5) (OR 4) (MAPCAR 8) (NLAMBDA 2) (MACRO 2)))(SETQ LPAR '"(&}")(SETQ BLANK '" ")(SETQ RPAR '))(SETQ LINE-WIDTH '39)(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y) X)))&}(DEFINEQ PU '(LAMBDA NIL ((LAMBDA (X) (PROGN (COND ((EQ (GETCMD (QUOTE "٧> ")) (QUOTE Y)) (XIO 33 7 0 0 X) &}(CLOSE 7))) (DIR))) (READ))))(DEFINEQ LOCK '(LAMBDA NIL ((LAMBDA (X) (PROGN (XIO 35 7 0 0 X) (CLOSE 7))) (READ))))(DEFINE&}Q UNLOCK '(LAMBDA NIL ((LAMBDA (X) (PROG (STAT) (SETQ STAT (XIO 36 7 0 0 X)) (COND ((EQ STAT 1)) (T (PRIN1 (QUOTE ͠&}Һ)) (PRINT STAT))) (CLOSE 7))) (READ))))(DEFINEQ GETLST '(LAMBDA (X) (COND ((ATOM X) (LIST X)) (X))))NILPAUX MULTARGS P$n(FUNCALL DEFPROP PUTPROP NCONC GET MAPCAR EQUAL DELETE SUBST REVERSE REMPROP CONZ GENSYM DEFUN MACFNS)(DEFINEQ FUNCALL '(MAC*}RO (S) (CONS (QUOTE APPLY*) (CDR S))))(DEFINEQ DEFPROP '(NLAMBDA (A) ((LAMBDA (ID PROP NAME) (PROGN (COND ((ASSOC NAME MACF*}NS) (DEFINE ID (CONS (CAR (CDR (ASSOC NAME MACFNS))) (CDR PROP)))) ((EQ (EVAL ID)) (SET ID (LIST NAME PROP))) (T (SET ID (CON*}S NAME (CONS PROP (EVAL ID)))))) ID)) (CAR A) (CAR (CDR A)) (CAR (CDR (CDR A))))))(DEFINEQ PUTPROP '(LAMBDA (ID PROP NAME) *}(PROGN (COND ((ASSOC NAME MACFNS) (DEFINE ID (CONS (CAR (CDR (ASSOC NAME MACFNS))) (CDR PROP)))) ((EQ (EVAL ID)) (SET ID (LIS*}T NAME PROP))) (T (SET ID (CONS NAME (CONS PROP (EVAL ID)))))) ID)))(DEFINEQ NCONC '(LAMBDA (X Y) (PROGN (RPLACD (LAST X) Y*}) X)))(DEFINEQ GET '(LAMBDA (ID NAME) (COND ((ASSOC NAME MACFNS) (CONS (QUOTE LAMBDA) (CDR (GETD ID)))) ((CAR (CDR (MEMBER *}NAME (EVAL ID))))))))(DEFINEQ MAPCAR '(LAMBDA (X FN) (COND ((EQ X) NIL) (T (CONS (APPLY* FN (CAR X)) (MAPCAR (CDR X) FN))))*}))(DEFINEQ EQUAL '(LAMBDA (X Y) (COND ((ATOM X) (EQ X Y)) ((ATOM Y) (EQ X Y)) ((AND (EQUAL (CAR X) (CAR Y)) (EQUAL (CDR X) *}(CDR Y)))))))(DEFINEQ DELETE '(LAMBDA (X Y) (COND ((EQ Y) NIL) ((EQUAL X (CAR Y)) (DELETE X (CDR Y))) ((CONZ Y (CAR Y) (DEL*}ETE X (CDR Y)))))))(DEFINEQ SUBST '(LAMBDA (X Y Z) (COND ((EQUAL Y Z) X) ((ATOM Z) Z) ((CONS (SUBST X Y (CAR Z)) (SUBST X Y*} (CDR Z)))))))(DEFINEQ REVERSE '(LAMBDA (X) (COND ((ATOM X) X) ((APPEND (REVERSE (CDR X)) (LIST (CAR X)))))))(DEFINEQ REM*}PROP '(LAMBDA (ID NAME) (COND ((ASSOC NAME MACFNS) (DEFINE ID NIL) ID) (T ((LAMBDA (Y) (COND ((EQ Y) Y) (T ((LAMBDA (Z) (CONZ*} Z (CAR (CDR Z)) (CDR (CDR Z)))) (DELETE (CAR (CDR Y)) Y)) ID))) (MEMBER NAME (EVAL ID)))))))(DEFINEQ CONZ '(LAMBDA (X Y Z)*} (RPLACA (RPLACD X Z) Y)))(DEFINEQ GENSYM '(LAMBDA NIL (PACK (CONS (QUOTE G0) (RPLACA (QUOTE (0)) (+ (CAR (CAR (CDR (CAR (C*}DR (CAR (CDR (CDR (CAR (CDR (CAR (CDR (CDR (GETD (QUOTE GENSYM))))))))))))))) 1))))))(DEFINEQ DEFUN '(MACRO (S) (CONS (QUOT*}E DEFPROP) (CONS (CAR (CDR S)) ((LAMBDA (X) (COND ((ASSOC X MACFNS) (LIST (CONS (QUOTE LAMBDA) (CDR (CDR (CDR S)))) X)) ((LIS*}T (CONS (QUOTE LAMBDA) (CDR (CDR S))) (QUOTE EXPR))))) (CAR (CDR (CDR S))))))))(SETQ MACFNS '((EXPR LAMBDA) (FEXPR NLAMBDA)*} (MACRO MACRO)))NILOP NCONC GET MAPCAR EQUAL DELETE SUBST REVERSE REMPROP CONZ GENSYM DEFUN MACFNS)(DEFINEQ FUNCALL '(MAC((CLISP TRANSLATE WEIGHT OPCODE)(DEFINEQ CLISP '(LAMBDA (FUN) (DEFINE FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAM.}BDA (S-EXP) (PROG (OPERANDS OPERATORS) (COND ((ATOM S-EXP) (RETURN S-EXP))) (COND ((EQ (OPCODE (CAR (CDR S-EXP)))) (RETURN (M.}APCAR S-EXP (QUOTE TRANSLATE))))) (SETQ OPERATORS (QUOTE (DUMMY))) STUFF (COND ((EQ S-EXP) (COND ((EQ (CAR OPERATORS) (QUOTE .}DUMMY)) (RETURN (QUOTE *ERROR*))) (T (RETURN (LIST (TRANSLATE (CAR OPERANDS)) (TRANSLATE (CAR OPERATORS)))))))) (SETQ OPERAND.}S (CONS (COND ((ATOM (CAR S-EXP)) (CAR S-EXP)) ((TRANSLATE (CAR S-EXP)))) OPERANDS)) (SETQ S-EXP (CDR S-EXP)) SCAN (COND ((AN.}D (EQ S-EXP) (EQ (CAR OPERATORS) (QUOTE DUMMY))) (RETURN (CAR OPERANDS)))) (COND ((OR (EQ S-EXP) (EQ (> (WEIGHT (CAR S-EXP)) .}(WEIGHT (CAR OPERATORS))))) (SETQ OPERANDS ((LAMBDA (X) (COND ((EQ X) (CONS (LIST (CAR (CDR OPERANDS)) (CAR OPERATORS) (CAR O.}PERANDS)) (CDR (CDR OPERANDS)))) (T (CONS (LIST X (CAR (CDR OPERANDS)) (CAR OPERANDS)) (CDR (CDR OPERANDS)))))) (OPCODE (CAR .}OPERATORS)))) (SETQ OPERATORS (CDR OPERATORS)) (GO SCAN)) (T (SETQ OPERATORS (CONS (CAR S-EXP) OPERATORS)) (SETQ S-EXP (CDR S.}-EXP)) (GO STUFF))))))(DEFINEQ WEIGHT '(LAMBDA (OP) (COND ((EQ OP (QUOTE DUMMY)) -1) ((EQ OP (QUOTE =)) 0) ((EQ OP (QUOTE +.})) 1) ((EQ OP (QUOTE -)) 1) ((EQ OP (QUOTE *)) 2) ((EQ OP (QUOTE /)) 2) (T 4))))(DEFINEQ OPCODE '(LAMBDA (OP) (COND ((EQ OP.} (QUOTE DUMMY)) (QUOTE DUMMY)) ((EQ OP (QUOTE =)) (QUOTE SETQ)) ((EQ OP (QUOTE +)) (QUOTE +)) ((EQ OP (QUOTE -)) (QUOTE SUB)).} ((EQ OP (QUOTE *)) (QUOTE *)) ((EQ OP (QUOTE /)) (QUOTE /)))))NIL FUN (TRANSLATE (GETD FUN)))))(DEFINEQ TRANSLATE '(LAM,E(RAN GOXY VTAB TIME MOD HLIN VLIN REFLECT NORMAL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 53772}0))) 65536))))(DEFINEQ GOXY '(LAMBDA (X Y) (PROGN (VTAB Y) (TAB X))))(DEFINEQ VTAB '(LAMBDA (R) (POKE 656 R)))(DEFINEQ 2}TIME '(LAMBDA NIL (PROG (TIME HOURS MINUTES SECONDS) (SETQ TIME (INT (/ (+ (* (PEEK 18) 4048) (+ (* (PEEK 19) 256) (PEEK 20))2}) 60))) (SETQ HOURS (INT (SUB (/ TIME 3600) .5))) (SETQ MINUTES (INT (SUB (/ (SUB TIME (* 3600 HOURS)) 60) .5))) (SETQ SECOND2}S (SUB TIME (+ (* HOURS 3600) (* MINUTES 60)))) (COND ((> 10 HOURS) (PRIN1 0))) (PRIN1 HOURS) (PRIN1 (QUOTE :)) (COND ((> 10 2}MINUTES) (PRIN1 0))) (PRIN1 MINUTES) (PRIN1 (QUOTE :)) (COND ((> 10 SECONDS) (PRIN1 0))) (PRINT SECONDS) (RETURN TIME))))(D2}(RAN GOXY VTAB TIME MOD HLIN VLIN REFLECT NORMAL)(DEFINEQ RAN '(LAMBDA (RANGE) (* RANGE (/ (+ (PEEK 53770) (* 256 (PEEK 53770}